From 54a974e0ef17024f29a02132db3dcf1d1bb7159f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 Aug 2002 18:21:28 +0000 Subject: [PATCH] (diary-mail-entries): Don't overwrite user's value of diary-list-include-blanks, but generate message instead if there are no entries. --- lisp/calendar/diary-lib.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 548ec7a1b3d..3b0110278ba 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -622,14 +622,15 @@ system. Alternatively, you can specify a cron entry: to run it every morning at 1am." (interactive "P") (let* ((diary-display-hook 'fancy-diary-display) - (diary-list-include-blanks t) (text (progn (list-diary-entries (calendar-current-date) (if ndays ndays diary-mail-days)) (set-buffer fancy-diary-buffer) (buffer-substring (point-min) (point-max))))) (compose-mail diary-mail-addr - (concat "Diary entries generated " - (calendar-date-string (calendar-current-date)))) + (if (string-equal text "") + "No entries found" + (concat "Diary entries generated " + (calendar-date-string (calendar-current-date))))) (insert text) (funcall (get mail-user-agent 'sendfunc)))) -- 2.30.2